home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / param.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  793 b   |  33 lines
  1. if (!defined &_PARAM) {
  2.     eval 'sub _PARAM {1;}';
  3.     require 'sys/types.ph';
  4.     require 'signal.ph';
  5.     require 'machparam.ph';
  6.     eval 'sub MAXPATHLEN {1024;}';
  7.     eval 'sub MAXBSIZE {4096;}';
  8.     eval 'sub dbtob {
  9.         local($blocks) = @_;
  10.         eval "(( &unsigned) ($blocks) << 9)";
  11.     }';
  12.     eval 'sub MAXHOSTNAMELEN {64;}';
  13.     eval 'sub NCARGS {10240;}';
  14.     eval 'sub NOFILE {64;}';
  15.     eval 'sub NGROUPS {16;}';
  16.     eval 'sub MIN {
  17.         local($a,$b) = @_;
  18.         eval "((($a)<($b))?($a):($b))";
  19.     }';
  20.     eval 'sub MAX {
  21.         local($a,$b) = @_;
  22.         eval "((($a)>($b))?($a):($b))";
  23.     }';
  24.     eval 'sub roundup {
  25.         local($x, $y) = @_;
  26.         eval "(((($x) + (($y) -1))/($y))*($y))";
  27.     }';
  28.     if (!defined &NULL) {
  29.     eval 'sub NULL {0;}';
  30.     }
  31. }
  32. 1;
  33.